home *** CD-ROM | disk | FTP | other *** search
/ CU Amiga Super CD-ROM 27 / CU Amiga Magazine's Super CD-ROM 27 (1998)(EMAP Images)(GB)[!][issue 1998-10].iso / CUCD / Programming / JForth / Extras / SysGen / $TABLE < prev    next >
Encoding:
Text File  |  1988-09-05  |  800 b   |  28 lines
  1. : $TABLE  CREATE  ( N --- )  ( <wordn> --in-- )
  2.              HERE dup >R swap   ( -- adr # )
  3.              DUP CELLS ALLOT R> SWAP  0  ( -- adr adr' # 0 )
  4. \
  5. \            DO   HERE OVER ! CELL+  ASCII " WORD DROP   ASCII " $,
  6. \
  7.              DO
  8.                 ( -- base current )
  9.                 HERE 2 pick - over !
  10.                 CELL+  ASCII " WORD DROP   ASCII " $,
  11. \
  12. \            LOOP DROP
  13. \
  14.              LOOP 2drop
  15. \
  16. \         DOES>  ( $# <pfa> --- )  SWAP CELLS + @  $TYPE  ;
  17. \
  18.           DOES>  ( $# <pfa> --- )  SWAP CELLS over + @  + $TYPE  ;
  19.  
  20.  
  21.  
  22. FALSE .IF : $TABLE  CREATE  ( N --- )  ( <wordn> --in-- )
  23.              HERE >R DUP CELLS ALLOT R> SWAP  0
  24.              DO   HERE OVER ! CELL+ FIND"  " " $, 
  25.              LOOP DROP
  26.           DOES>  ( $# <pfa> --- )  SWAP CELLS + @  $TYPE  ;
  27. .THEN
  28.